home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 May / 64er_Magazin_93-05_1993_Markt__Technik_de_Side_B.d64 / auto in basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  318b  |  11 lines
  1. 0 input"erste nummer";a
  2. 1 input"schrittweite";w
  3. 2 sys58692:poke830,w:ifa<10orw=0ora>63999thenrun
  4. 3 poke828,a/256:poke829,a-peek(828)*256:printa;:poke204,0
  5. 4 geta$:ifa$=""then4
  6. 5 poke205,2:wait207,1,1:poke204,1:printa$;
  7. 6 ifa$<>chr$(13)then4
  8. 7 print"run 9":fori=631to634:pokei,145:next
  9. 8 poke198,6:poke635,13:poke636,13:end
  10. 9 print"[145]      ":print"       [145][145][145]":a=peek(828)*256+peek(829)+peek(830):goto3
  11.